home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / HAMRADIO / LOGBOOK.ZIP / LOGDATE.PRG < prev    next >
Text File  |  1986-05-02  |  1KB  |  34 lines
  1. * LOGDATE  VER 860502 COPYRIGHT (c) JOE KASSER G3ZCZ 1986
  2. USE &logbook
  3.  
  4. ACCEPT 'WHAT DATE DO YOU WANT TO SEE       ? ' TO sdate
  5. ERASE
  6. GOTO TOP
  7. ? 'STANDBY WHILE I LOCATE THE PAGE WITH THE ENTRIES FOR ',sdate
  8. ?
  9. LOCATE FOR date = sdate
  10. IF EOF
  11.    ?
  12.    ? 'no QSOs in the log for ',sdate
  13.  
  14. ELSE
  15.    STORE 0  TO lcount
  16.    ? 'QSOs FOR ',sdate
  17.    ?
  18.    DO WHILE sdate = date   .AND. .NOT. EOF
  19.       DISP
  20.       STORE lcount + 1 TO lcount
  21.       IF lcount > 20
  22.          WAIT
  23.          ? 'QSOs FOR ',sdate
  24.          ?
  25.          STORE 0 TO lcount
  26.       ENDIF
  27.       SKIP
  28.    ENDDO
  29. ENDIF
  30. RELEASE sdate,lcount
  31. WAIT
  32. USE
  33. RETURN
  34. 6202420 LU8FEU    59 59 SSB 400 B-71-13      85/10/26203020 4X/CE3DMG 59 59 SSB 400 --72-20      85/10/26203220 CE2BXN    59 59 SSB 400 B-73-12      85/10/26205240 UZ9CWW    59 59 SSB 200 --74-17      85/10/26205740 UZ9CYB    59 59 SSB 200 --75-17      85/10/26210140 UA6JY     59 59 SSB 200 --76-16      85/10/26210140 UW0CW     59 59 SSB 200 --77-19      85/10/26210540 UW6CD     59 59